﻿Imports System.Data
Imports MetodosComuns
Imports extranet.BC
Imports extranet.BE
Imports extranet.DA
Imports System.Collections.Generic

Partial Class Cadastro
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  End Sub

  Protected Sub ddl_Franquia_Init(ByVal sender As Object, ByVal e As System.EventArgs)
    With DirectCast(sender, DropDownList)
      .DataSource = BCFranquia.Selecionar()
      .DataBind()
    End With
  End Sub

  Protected Sub btnCadastrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCadastrar.Click
    Try
      lblErro.Visible = False
      lblErro.Text = ""
      If BCUsuario.CpfExiste(txt_Cpf.Text) Then lblErro.Text &= "O CPF informado já está cadastrado no Sistema<br/>"
      If BCUsuario.UsuarioExiste(txt_Usuario.Text) Then lblErro.Text &= "O nome para LOGIN já foi selecionado no Sistema<br/>"
      If lblErro.Text.Length() > 0 Then
        lblErro.Visible = True
      Else
        Dim objBEUsuario As New BEUsuario
        With objBEUsuario
          .Nome = txt_Nome.Text
          .Cpf = txt_Cpf.Text
          .Franquia = New BEFranquia(Integer.Parse(ddl_Franquia.SelectedValue))
          .Usuario = txt_Usuario.Text
          .Senha = txt_Senha.Text
          .Email = txt_Email.Text
        End With
        BCUsuario.Cadastrar(objBEUsuario)
        BCUsuario.AtualizarSenha(objBEUsuario)
        Dim strMsgEmail As String = "Um novo Usuário cadastrou-se para participar do Extranet da Fit4.<br/><br/>" & _
                                    "Nome: " & txt_Nome.Text & "<br/>" & _
                                    "CPF: " & txt_Cpf.Text & "<br/>" & _
                                    "Franquia: " & ddl_Franquia.SelectedItem.Text & "<br/>" & _
                                    "Login: " & txt_Usuario.Text & "<br/><br/>"
        MetodosComuns.EnviaEmail(STREMAILADMINISTRADOR, _
                                 strMsgEmail, _
                                 "Novo usuário cadastrado", _
                                 STREMAILFIT4, _
                                 STREMAILFIT4)
        Response.Redirect("~/")
      End If
    Catch ex As Exception
      lblErro.Visible = True
      lblErro.Text = "Erro no cadastro do usuário<br/>" & ex.Message
    End Try
  End Sub
End Class
